﻿Imports tiendaRegalos

Public Class IngresarUsuarios
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnGuardar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGuardar.Click
        Try
            Dim negocio = New UsuarioNegocio
            negocio.insertar(123, Me.txtIdRol.Text, Me.txtNombre.Text, Me.txtCorreo.Text, Me.txtPaterno.Text, Me.txtMaterno.Text, Me.txtDNI.Text, Me.txtDireccion.Text, Me.txtFN.Text, Me.txtEstado.Text, Me.txtClave.Text, Me.txtTelefono.Text, Me.txtCiudad.Text)

            Me.txtIdRol.Text = ""
            Me.txtNombre.Text = ""
            Me.txtCorreo.Text = ""
            Me.txtPaterno.Text = ""
            Me.txtMaterno.Text = ""
            Me.txtDNI.Text = ""
            Me.txtDireccion.Text = ""
            Me.txtFN.Text = ""
            Me.txtEstado.Text = ""
            Me.txtClave.Text = ""
            Me.txtTelefono.Text = ""
            Me.txtCiudad.Text = ""
           


            Response.Write("Se insertó correctamente")

        Catch ex As Exception
            Response.Write("Problemas al insertar")
        End Try
    End Sub


End Class